home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / MATH / NRPAS13 / ERFC.PAS < prev    next >
Pascal/Delphi Source File  |  1991-04-29  |  173b  |  9 lines

  1. FUNCTION erfc(VAR x: real): real;
  2. BEGIN
  3.    IF (x < 0.0) THEN BEGIN
  4.       erfc := 1.0+gammp(0.5,sqr(x))
  5.    END ELSE BEGIN
  6.       erfc := gammq(0.5,sqr(x))
  7.    END
  8. END;
  9.